home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Meeting Pearls 1
/
Meeting Pearls Vol 1 (1994).iso
/
amok98-106
/
amok101
/
interfaces
/
compile_all
< prev
next >
Wrap
Text File
|
1994-04-21
|
8KB
|
268 lines
; Installiert die neuen Interfaces und compiliert alles neu
; Installs the new interfaces and recompiles everything
;
; © 1994 by Thomas Wagner [tom]
; Permission granted to include to Interfaces edited by hartmut Goebel
; and the Amiga Oberon Distribution.
;
; $VER: Compile_All_2 1.0 (17.1.94)
;
; KEINE HAFTUNG
;
; Die Tabulatorlänge sollte auf 4 gesetzt werden, um diesen Text zu lesen/editieren
; set tabsize to 4 to read/edit this text
(set #archivename "Interfaces3_4.lha")
(if (= @language "deutsch")
(
(set #start
(cat "\n© 1994 by Thomas Wagner [tom]\n"
"*********************************\n\n"
"Mit diesem Skript kann man den alle System- und Objekt-Files von "
"Amiga Oberon neu erzeugen.\n\n"
"Da das Archiv entpackt wird, benötigt es LHA im Suchpfad.\n\n"
"Wenn der Diskettenname ein '#' enthält, muß die Schublade erst "
"z.B. ins RAM: kopiert werden, da LHA das nicht verkraftet."
)
)
(set #select-comp
(cat "Jetzt müssen noch die Symbol- und Objekt-Files erstellt werden. "
"Bitte wählen Sie, welche Objekt-Files ich erstellen soll."
)
)
(set #compilation
(cat "Ich compiliere jetzt mit den von Ihnen gewünschten Parametern.\n\n"
"Bitte haben Sie etwas Geduld. Dieser Teil dauert etwas länger...\n\n"
"Ich erzeuge gerade die *.obj%s-Files."
)
)
(set #where-are-interfaces "In welches Verzeichnis soll ich die Interfaces entpacken?")
(set #where-are-modules "Wo sind die Module?")
(set #where-are-syms
(cat "In welchem gemeinsamen (Ober-)Verzeichnis befindet sich sowohl "
"das Verzeichnis \"sym\" also auch \"obj\", bzw. wo sollen diese "
"angelegt werden?"
)
)
(set #where-is-list "Welche Compilerversion verwenden sie?")
(set #comp-old "niedriger als 3.10")
(set #comp-new "3.10 oder höher")
(set #where-is-oberon "In welchem Verzeichnis ist der Oberon Compiler?")
(set #extracting "Entpacke Daten ...")
(set interfaces-dir "")
(set modules-dir "")
))
(if (= @language "english")
(
(set #start
(cat "\n© 1994 by Thomas Wagner [tom]\n"
"*********************************\n\n"
"With this script you can recreate all system and objekt files of "
"Amiga Oberon.\n\n"
"This the archive will be unpacked, it needs LHA in the search path.\n\n"
"If the volume name contains '#' the drawer must be copied to e.g. "
"RAM: first, because LHA can't handle this."
)
)
(set #select-comp
(cat "Now the symbol and object files have to be created. "
"Please select which sort of object files should be created."
)
)
(set #compilation
(cat "I compile with you selected parameters.\n\n"
"Please be patient. This part will take some time...\n\n"
"I now create the *.obj%s files."
)
)
(set #where-are-interfaces "Into which dir I should extract the interfaces?")
(set #where-are-modules "Where are the modules?")
(set #where-are-syms
(cat "In which common (main-)directory are your \"sym\" AND \"obj\" "
"drawer, or in which directory should they be created?"
)
)
(set #where-is-list "Which compiler version do you use?")
(set #comp-old "lower than 3.10")
(set #comp-new "3.10 or higher")
(set #where-is-oberon "In which directory os your compiler?")
(set #extracting "Extracting from archive ...")
(set interfaces-dir "")
(set modules-dir "")
))
;--------------------------------------------------------
; compile modules and interfaces
(message #start)
(welcome)
(set @default-dest "OBERON:")
(set obfull
(askdir
(prompt #where-is-oberon)
(help @askfile-help)
(default @default-dest)
; (newpath)
)
)
(set comp
(askoptions
(prompt #select-comp)
(help @askoptions-help)
(choices " < > (*.obj)"
" <-md > (*.objs)"
" <-a > (*.obja)"
" <-mda> (*.objsa)"
)
(default 15)
)
)
(set obfull (tackon obfull "Oberon"))
(if (= interfaces-dir "")
(set interfaces-dir
(askdir
(prompt #where-are-interfaces)
(help @askdir-help)
(default (tackon @default-dest "Interfaces"))
)
)
)
(if (= modules-dir "")
(set modules-dir
(askdir
(prompt #where-are-modules)
(help @askdir-help)
(default (tackon @default-dest "Module"))
)
)
)
(set sym-dir
(askdir
(prompt #where-are-syms)
(help @askdir-help)
(default @default-dest)
)
)
(set list (pathonly @icon))
(if
(askbool
(prompt #where-is-list)
(help @askbool-help)
(choices (#comp-old) (#comp-new))
)
(set list (tackon list "recomp.lst"))
(set list (tackon list "recomp3_1.lst"))
)
(if (NOT (exists (tackon sym-dir "sym")))
(makedir (tackon sym-dir "sym") (infos))
)
(if (NOT (exists (tackon sym-dir "obj")))
(makedir (tackon sym-dir "obj") (infos))
)
(makeassign "om" modules-dir)
(makeassign "oa" interfaces-dir)
(makeassign "symdir" (tackon sym-dir "obj") )
(working #extracting)
(run (cat "lha -x0 e " (tackon (pathonly @icon) #archivename) " symdir: *.o"))
(run (cat "lha -x0 e " (tackon (pathonly @icon) #archivename) " oa: *.mod"))
(makeassign "symdir")
(set intro (cat "cd " sym-dir "\nstack 30000\n"))
(if (IN comp 0)
(
(working (#compilation ""))
(textfile
(prompt "")
(help @textfile-help)
(dest "T:OBINST")
(append intro)
(append (cat obfull " >CON: <" list "\n"))
)
(execute "T:OBINST")
(run "delete T:OBINST")
)
)
(if (IN comp 1)
(
(working (#compilation "s"))
(textfile
(prompt "")
(help @textfile-help)
(dest "T:OBINST")
(append intro)
(append (cat obfull " -md >CON: <" list "\n"))
)
(execute "T:OBINST")
(run "delete T:OBINST")
)
)
(if (IN comp 2)
(
(working (#compilation "a"))
(textfile
(prompt "")
(help @textfile-help)
(dest "T:OBINST")
(append intro)
(append (cat obfull " -a >CON: <" list "\n"))
)
(execute "T:OBINST")
(run "delete T:OBINST")
)
)
(if (IN comp 3)
(
(working (#compilation "sa"))
(textfile
(prompt "")
(help @textfile-help)
(dest "T:OBINST")
(append intro)
(append (cat obfull " -mda >CON: <" list "\n"))
)
(execute "T:OBINST")
(run "delete T:OBINST")
)
)
(makeassign "oa")
(makeassign "om")